home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / HTIME.ASM < prev    next >
Assembly Source File  |  1994-07-28  |  1KB  |  40 lines
  1. ;******************************************************************
  2. ;*                            HTIME.ASM                           *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. MODEL TPASCAL
  8. LOCALS
  9. .DATA
  10.      EXTRN DosError :word
  11. .CODE
  12.        Public SetHandleTime
  13.        Public GetHandleTime
  14. SetHandleTime Proc Far Handle:Word,DateTime:DWord
  15. ;Procedure SetHandleTime(Handle:Word;DateTime:Longint);
  16.                 MOV BX,Handle
  17.                 MOV DX,Word Ptr DateTime[2];Date
  18.                 MOV CX,Word Ptr DateTime[0];Time
  19.                 MOV AX,5701H
  20.                 INT 21h
  21.                 JC @@Error
  22.                 XOR AX,AX
  23. @@Error:        MOV DosError,AX
  24.                 RET
  25.                EndP
  26. GetHandleTime Proc Far Handle:Word,DateTime:DWord
  27. ;Procedure GetHandleTime(Handle:Word;var DateTime:LongInt);
  28.               MOV BX,Handle
  29.               MOV AX,5700H
  30.               INT 21H
  31.               JC @@Error
  32.               XOR AX,AX
  33.               LES DI,DateTime
  34.               MOV ES:[DI],CX
  35.               MOV ES:[DI+2],DX
  36. @@Error:      MOV DosError,AX
  37.               RET
  38.             EndP
  39. end
  40.